home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 3 / ACE CD 3.iso / files / utils / real3d32.dms / in.adf / GUI.LZH / GUI / simple.gui < prev    next >
Encoding:
Text File  |  1995-05-04  |  2.1 KB  |  92 lines
  1.  
  2. (
  3. ( Very simple GUI example. This opens one window which contains only
  4. ( two buttons. 
  5. ( 
  6.  
  7. ( Variables, words etc. must not be defined more than once. ?& SIMPLE_GUI
  8. ( attempts to fetch the address of SIMPLE_GUI constant. If cannot be found
  9. ( we know that the program is loaded for the first time.
  10.  
  11. ?& SIMPLE_GUI NOT ?IF 
  12.  
  13.  
  14. ( define SIMPLE_GUI to make sure that these will not be defined again later.
  15.  
  16. 1 CONSTANT SIMPLE_GUI
  17.  
  18.  
  19. ( this file contains necessary RPL definitions for GUI words.
  20.  
  21. "ui.rpl" LOAD
  22.  
  23.  
  24. ( Variables, make sure these are unique. Conflicts with other RPL gui
  25. ( programs can crash the system.
  26.  
  27. VARIABLE siaWindow
  28.  
  29.  
  30. ( Callbacks for buttons. When the user clicks buttons, these words 
  31. ( are called.
  32.  
  33. : sicbButton
  34.     "I See" "Button Clicked" GET_KEY DROP
  35. ;
  36.  
  37. : sicbHelp
  38.     "r3d3:help/simple_gui.guide" "main" 0 AGUIDE
  39. ;
  40.  
  41. : sicbClose
  42.     siaWindow FETCH UI_DELETE   ( delete the window
  43.     NULL siaWindow STORE         ( set siaWindow to NULL 
  44. ;
  45.  
  46.  
  47. ( Callback for Window. Mouse movements, mouse clicks and close window 
  48. ( events are reported.
  49.  
  50. : sicbWindow 
  51.     PARAM
  52.         VARIABLE iMouseY
  53.         VARIABLE iMouseX
  54.         VARIABLE iEvent
  55.     ENDPARAM
  56.  
  57.     ( Check if iEvent is equal to UIWM_Close
  58.     iEvent FETCH UIWM_Close = 
  59.     IF
  60.         siaWindow FETCH UI_DELETE    ( Close window
  61.         NULL siaWindow STORE         ( Set siaWindow to NULL 
  62.     ENDIF
  63. ;
  64.  
  65. ?ENDIF
  66.  
  67.  
  68. ( Now that we have defined all the required variables and words it is time 
  69. ( to create windows and other display elements. 
  70.  
  71. ( if window is already open, prompt proper error message and do nothing.
  72. siaWindow FETCH
  73. ?IF
  74.     "Understood" "Window already opened" GET_KEY DROP
  75. ?ELSE
  76.  
  77.     ( otherwise, open all display elements
  78.  
  79.     ( Open a window
  80.     UI_Done 
  81.     & sicbWindow 0 0 400 100 "Simple GUI Example" UI_WINDOW siaWindow STORE
  82.  
  83.     ( create button gadgets, no need to save handles
  84.     UI_Done siaWindow FETCH & sicbButton 20 50  80 12 "Button" UI_BUTTON DROP
  85.     UI_Done siaWindow FETCH & sicbHelp  100 50  80 12 "Help"   UI_BUTTON DROP
  86.     UI_Done siaWindow FETCH & sicbClose 220 50 130 12 "Close"  UI_BUTTON DROP
  87.     
  88.     ( realize display elements
  89.     siaWindow FETCH UI_REALIZE
  90.  
  91. ?ENDIF 
  92.